﻿Public Class masdischarge
    Private masdischargeID = Nothing
    Private masdischargeDescription = Nothing
    Private masdischargeStatus = Nothing
    Private selectMasdischarge = "SELECT `dischgid` as 'รหัส Discharge',`discharge` as 'Discharge',`status` as 'สถานะการเปิดใช้งาน' FROM masdischarge ORDER BY DISCHGID ASC"

    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property masdischargeID_ As Integer
        Get
            Return masdischargeID
        End Get
        Set(value As Integer)
            masdischargeID = value
        End Set
    End Property

    Property masdischargeDescription_ As String
        Get
            Return masdischargeDescription
        End Get
        Set(value As String)
            masdischargeDescription = value
        End Set
    End Property

    Property masdischargeStatus_ As Boolean
        Get
            Return masdischargeStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                masdischargeStatus = 1
            Else
                masdischargeStatus = 0
            End If
        End Set
    End Property

    Property selectMasdischarge_ As String
        Get
            Return selectMasdischarge
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasdischargeData()
        If masdischargeDescription <> "" Then
            If TypeOf masdischargeDescription Is String Then
                If connect.GetTable("SELECT discharge FROM masdischarge WHERE discharge = '" & masdischargeDescription & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูล Discharge นี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim dischargeID As Integer

                        dischargeID = connect.ExecuteScalar("INSERT INTO masdischarge (discharge, status) VALUES ('" & masdischargeDescription & "', '" & masdischargeStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASDISCHARGE (DISCHGID, DISCHARGE, STATUS) VALUES ('" & dischargeID & "', '" & masdischargeDescription & "', '" & masdischargeStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูล Discharge เรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัส Discharge นี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasdischargeData()
        If masdischargeID > 0 And masdischargeDescription <> "" Then
            If TypeOf masdischargeDescription Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE masdischarge SET discharge = '" & masdischargeDescription & "', status = '" & masdischargeStatus & "' WHERE dischgid = '" & masdischargeID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASDISCHARGE SET DISCHARGE = '" & masdischargeDescription & "', STATUS = '" & masdischargeStatus & "' WHERE DISCHGID = '" & masdischargeID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูล Discharge เรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัส Discharge นี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    'Public Function deleteMasdischargeData()
    '    If masdischargeID > 0 And masdischargeDescription <> "" Then
    '        Dim connect As CONDB = CONDB.NewConnection()
    '        connect = CONDB.NewConnection()

    '        If TypeOf masdischargeDescription Is String Then
    '            Try
    '                connect.ExecuteNonQuery("DELETE FROM masdischarge WHERE DISCHGID = '" & masdischargeID & "'")
    '                MsgBox("ท่านได้ทำการลบข้อมูล Discharge เรียบร้อยแล้ว")
    '            Catch ex As Exception
    '                MsgBox("มีเลขรหัส Discharge นี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
    '            End Try

    '            connect.Dispose()
    '        Else
    '            MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
    '        End If
    '    Else
    '        MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
    '    End If
    'End Function
End Class
